home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibtscr4.arc / TRAIN.SCR < prev    next >
Encoding:
Text File  |  1986-01-08  |  384 b   |  21 lines
  1. PARAM TT=XC
  2. PARAM TE=2
  3. PARAM MO=17
  4. CLEAR
  5. MESSAGE "*** DIALING LOVE TRAIN RBBS ***"
  6. DIAL "28"
  7. IF NOT CONNECTED
  8.    MESSAGE            "** RE-DIALING LOVE TRAIN RBBS **"
  9.    HANGUP
  10.    REDIAL
  11. ENDIF
  12. WAITSTRING "NAME?"
  13. STEXT "     ;      |"
  14. WAITSTRING "?"
  15. STEXT "(    |"
  16. WAITSTRING "Y/N)?"
  17. STEXT "Y|"
  18. IF CONNECTED
  19.    EXIT
  20. ENDIF
  21.